Store-Item-Price names an undocumented function, with lambda list (OBJECT).
(SETF Store-Item-Price) names an undocumented function, with lambda list (NEW-VALUE OBJECT).